home *** CD-ROM | disk | FTP | other *** search
/ FutureMusic 2005 September / Future Music Magazine September 2005.iso / pc / FMmag.dxr / 00136_mediaFForward.ls < prev    next >
Encoding:
Text File  |  2005-06-01  |  1.3 KB  |  54 lines
  1. property pSpr, pMemberNum, pVidSpriteNum
  2. global gZoomedObj, gVideoObj, gAudioObj, gPlatform
  3.  
  4. on beginSprite me
  5.   pVidSpriteNum = gZoomedObj.getVidSprNum()
  6.   pSpr = sprite(me.spriteNum)
  7.   pMemberNum = pSpr.member.number
  8. end
  9.  
  10. on mouseDown me
  11.   pSpr.member = member(pMemberNum + 1)
  12.   if gZoomedObj.AudioPlaying() then
  13.     repeat while the stillDown
  14.       gAudioObj.FForward()
  15.       startTimer()
  16.       repeat while the timer < 1
  17.         updateStage()
  18.       end repeat
  19.     end repeat
  20.     gAudioObj.resume()
  21.   else
  22.     if gZoomedObj.VideoPlaying() then
  23.       repeat while the mouseDown
  24.         gZoomedObj.FForward()
  25.         if gPlatform = "PC" then
  26.           timeToSeek = sprite(pVidSpriteNum).currentTime + 200
  27.           if timeToSeek > sprite(pVidSpriteNum).duration then
  28.             timeToSeek = sprite(pVidSpriteNum).duration - 5
  29.           end if
  30.           sprite(pVidSpriteNum).seek(timeToSeek)
  31.           tMill = the milliSeconds + 70
  32.           repeat while the milliSeconds < tMill
  33.             updateStage()
  34.           end repeat
  35.           next repeat
  36.         end if
  37.         startTimer()
  38.         repeat while the timer < 1
  39.           updateStage()
  40.         end repeat
  41.       end repeat
  42.       gVideoObj.resume()
  43.     end if
  44.   end if
  45. end
  46.  
  47. on mouseUp me
  48.   pSpr.member = member(pMemberNum)
  49. end
  50.  
  51. on mouseUpOutSide me
  52.   pSpr.member = member(pMemberNum)
  53. end
  54.